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What is Applesauce? Lots of people know it as the flux imager for Apple ][ 
and Mac floppy disks that makes pretty pictures. It does that, but it also 
does so much more. It is a tool for disk validation, recovery, and exploration. 
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En respuesta a @DiskBlitz 


This is the original Ultima from @RichardGarriott . It is 
copy protected, but Applesauce uses machine learning 
to unwind the protection scheme (altered sector 
markers that change per track) in order to validate that 
the underlying data is correct. 
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En respuesta a @DiskBlitz 

After understanding how the disk is structured, it can see that it is using a 
modified DOS 3.2 with a catalog on track $14 instead of $11. So, we can 
now see the files on the disk. This is the first version of Ultima that was 
written in Applesoft BASIC. 
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# 02140402 BOROFE RS 00000800 0D090008 00000000 eD0GD02 K9EDLEEe eDLOLDLE 
% eoe0e200 e800007A BOLDED EDeeEDe 21010000 73000001 coeDLEee coeeCDeE 
= 00000000 GD0eDES LOODeDGD eD0EEDLE BOLDED SDOGGDLE LODE e000000 
% a@eneees eaecenee coeseeee ex0een0e eBPeLeee eDoeeDee coeDeeED eDv0e00e 
% 00000000 eDEOODE LODO GDLEODLE 980D0E00 SDAELDEE HOLL 00000000 
m Qe20000 wDeEEDEe deeDeeLE e20eEDLe E9000 SBAELDEE LoeDLEED e2000000 
% 09000800 HDEEeDEE ODED eDeEODL® eOOD0E00 eDDELDEE DOeoee e2000000 
H 0000000 HDEDODES LOEDeeLD eO0EeDLE 9OEDLEED SDAEEDLE HOLE er0e00e 


# 30001609 Co26BA22 54595045 202238E2 28373232 29380050 O9CA26BA 22072045 
 52524FS2 20494628 4C494E45 20223BE2 28323138 2983235 YOCAED2 32313929 
 3ABA2250 4C45.4153 45204849 54204553 43202238 34893439 3136382 30007509 
Mt 04268644 263AA044 2401CFE7 28323729 (4393934 30009809 DE264424 DOET 2834 
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Ale 100822 (3 wenn > uurma O12 A Acetenoft BASSE TePtacesruEdOobchOeedtare F961 
> PCULTVATUM 8102 8 - Binary ett bes 70ccTee3B0ENSETDTIEVD OD 
> init o1sPLAY 4008 A- Apeieso BASIC T7ee@O4z2 OIEACTTIeeBIBBEDO7 TO 
> our Move 11008 A Applesoft BASIC 8 5e93.4¢746915673880800CI7A6C8 
> TWH Move 14.336 A Avelesoft BASIC Occdeuar7arbsaRSasaTseDBaccsbe 
> cas Move 12032 A- Agelesomt BASIC eas7s1aDTeOdeeDaMeTOdEBEOSaLe 
> ONG MOVE + 11820 A- Aselesomt BASIC S764 NSA737EESNBCEERS7BTROLOL 
Dn 2,800 8 - Binary S723224daDe0b0t90t0deet9e4246367 
> se2 2.560 8 - Binary ebereOeMErr79EMadse?SenIO406 
ei) 2.800 8 - Binary Gar2002016sa9M OND HOCTEII7IDE 
> stra 2.000 8 Binary £4002 76ear99N97ICCHOTCRDDDCOTEAS 
> ser8 2.306 8 - Binary b274GbabeLessetDsccRAI003t007E82 
> saMove 9.206 A Agplesoft BASIC r6s1083asd61e086R0 307ENbIENS 
> wro 296 T= Tent GeBdBs7eDebcScB3e0620800etND<eIS 
> ULTSHAPES 768 8 - Bary chedaan605496c102410343355813103 
> RAW 64.08 512 8- Bnwry ‘8c037an933¢9708657787e8e0804834 
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Applesauce also supports many standard formats and has the ability to 
detokenize an BASIC files. This gives us the ability to view the source code of 
Ultima. 


eee [Ultima - Program Diskette.a2r Uh INIT DISPLAY 
Fork Data B Size 4608 Show As Appiesoft BASIC B 


@ ONERR GOTO 9900 

10 LOMEN: 3073@ 

20 REM 

3@ D$ = CHAS (4): POKE 25,1 


S@ HOME : VTAB (2): HTAB (14): INVERSE : PRINT "—--ULTIMA—---": NORMAL : PRINT : HTAB (14): PRINT " FROM DARKEST ": PRINT : HTAB 
(14); PRINT " DUNGEONS, TO“: PRINT : HTAB (14): PRINT "DEEPEST SPACE!"; PRINT ; PRINT ; PRINT “ (C)~1981 BY LORD 
GRITISH,": PRINT ™ CALIFORNIA PACIFIC COMPUTER" 

70 PRINT : PRINT : PRINT” O-# OF DISK DRIVES = “;: INVERSE : PRINT PEEK (25): NORMAL : PRINT : PRINT “ 1-GENERATE 


NEW CHARACTER": PRINT ; PRINT “ 2-CONTINUE PREVIOUS GAME": POKE ~ 16303,0: POKE ~ 16368,0 
120 PRINT : PRINT : HTAB (18): PRINT "CHOICE "3: GET Q$:0 = VAL (QS): PRINT Q: IF Q< > @ THEN 17€ 
140 IF Q$ = CHR$ (15) THEN TEXT : HOME : VTAB 15: PRINT "5/22/81": WAIT 0,0 

150 IF PEEK (25) = 1 THEN POKE 25,2: GOTO SO 

16¢ coum 25,1: GOTO Se 


180 IF Q = 1 THEN 210 
19@ IF Q=2 THEN POKE - 16380,0: POKE - 16297,8: POKE - 16302,8: POKE - 16304,0: HOME : GOTO 1e000 
20@ TAB (2): GOTO 120 


REN 
22@ POKE ~ 16368,0: HOME : VTAB (10): HTAB (5): PRINT “INSERT A NEW PLAYER DISK DRIVE "; PEEK (25) 
23@ IF PEEK ( - 16384) < > 155 THEN 238 
240 PRINT D$;"BLOAD BEVERY,0"; PEEK (25): POKE 105, PEEK (30720): POKE 106, PEEK (30721): POKE 107, PEEK (30722): POKE 108, PEEK 
(30723): POKE 109, PEEK (30724): POKE 110, PEEK (30725): POKE 111, PEEK 
PRINT : HTAB (9): PRINT "NOT A "NEW' PLAYER DISK": FOR X = 1 TO 51 
280 OIM D¥(18,10):MNS(12) = “HIDDEN “ + “ARCHER:MNS(6) = “NESS 
(19) iL" + “RANGER™:MNS(20) = "WANDERING " + "WARL 
GELATINOUS” + " CUBE":MNS(33) = "LIZARD “ + "MAN: 
MIM" + "IC": TDTS$(44) = “THE SOUTHERN " + "SIGN POS) 
40@ DIS = 90: HOME : VTAB (2): HTAB (11): PRINT “CHARACTER GENERATION": VTAB (4): HTAB (7): PRINT “POINTS LEFT TO DISTRIUTE “;DIS: 
FOR X = 1 TO 6: VTAB (5 + X): HTAB (12): PRINT C$(X): NEXT : VTAB (13): HTAB (15): PRINT C$(8) 
440 VTAB (14): HTAB (15): PRINT C$(9): VTAB (15): HTAB (15): PRINT "NAME": VTAB (17): HTAB (11): PRINT “SATISFACTORY (Y/N)": VTAB 
¢ AB (12): PRINT "RACES: TY! FOR X = 1 TO 4: VTAB (19 + X): MTAB (21): PRINT X;"=";RACES(X);: HTAB (21): PRINT 
EXT : FOR X = 1106 
70 = VAL (NAMES): IF Q < 10 OR Q > 20 THEN 520 
TO 480 










(30726): POKE 112, PEEK (30727): IF NAMES < > "" THEN 
: GOTO 5@ 








a * © "SQUID" :HNS(10) = "HO" + “OD":HNS 
MISSILE” 
1MNS(41) = “INVISIBLE “ + "SEEKER":LAG = 900 
















X3"—"; TYPES(X): NEXT : POKE ~ 16368 
520 VTAB (S + X): HTAB (27):0 = 2: GOSUB 
530 IF DIS ~ Q < @ THEN PRINT "{7G}{"G){*6) 
540 DIS = DIS - 0: VTAB (4): HTAB (33): PRINT 
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3: CALL - 868:C(X) = Q: NEXT 
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You can also use Applesauce to extract the files in order to poke at them 
with your favorite hex editor. The ability to capture a flux image of a floppy 
disk is but a tiny part of the software preservation process. 
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